;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CL-USER; Base: 10 -*-
;;; Regex test case testinput5 from PCRE.
;;;
;;; This file is automatically generated from PCRE's test data with
;;; Perl 5.008004 at 2004-05-24 17:48:50 UTC.
;;;
;;; See: http://www.pcre.org/ for PCRE, Perl Compatible Regex.
;;;
;

;;;; testinput5/24: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/24"
  "^\\x{100}a\\x{1234}"
  (backslash "\\u0100a\\u1234bcd")
  '(:unicode t :single-line nil)
  (list (backslash "\\u0100a\\u1234")) )

;;;; testinput5/31: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/31"
  "\\x{0041}\\x{2262}\\x{0391}\\x{002e}"
  (backslash "A\\u2262\\u0391.")
  '(:unicode t :single-line nil)
  (list (backslash "A\\u2262\\u0391.")) )

;;;; testinput5/34: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/34"
  "\\x{D55c}\\x{ad6d}\\x{C5B4}"
  (backslash "\\uD55C\\uAD6D\\uC5B4")
  '(:unicode t :single-line nil)
  (list (backslash "\\uD55C\\uAD6D\\uC5B4")) )

;;;; testinput5/37: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/37"
  "\\x{65e5}\\x{672c}\\x{8a9e}"
  (backslash "\\u65E5\\u672C\\u8A9E")
  '(:unicode t :single-line nil)
  (list (backslash "\\u65E5\\u672C\\u8A9E")) )

;;;; testinput5/50: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/50"
  ".{3,5}X"
  (backslash "\\u212AB\\u212AB\\u212AB\\u0861X")
  '(:unicode t :single-line nil)
  (list (backslash "\\u212AB\\u212AB\\u212AB\\u0861X")) )

;;;; testinput5/54: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/54"
  ".{3,5}?"
  (backslash "\\u212AB\\u212AB\\u212AB\\u0861")
  '(:unicode t :single-line nil)
  (list (backslash "\\u212AB\\u212AB\\u212AB")) )

;;;; testinput5/61: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/61"
  "^[a\\x{c0}]b"
  (backslash "\\u00C0b")
  '(:unicode t :single-line nil)
  (list (backslash "\\u00C0b")) )

;;;; testinput5/64: 
;;;
;;;    Matched with 1 captures.
;
(test-case
  "pcre-5/64"
  "^([a\\x{c0}]*?)aa"
  (backslash "a\\u00C0aaaa/")
  '(:unicode t :single-line nil)
  (list
    (backslash "a\\u00C0aa")
    (backslash "a\\u00C0") ) )

;;;; testinput5/67: 
;;;
;;;    Matched with 1 captures.
;
(test-case
  "pcre-5/67"
  "^([a\\x{c0}]*?)aa"
  (backslash "a\\u00C0aaaa/")
  '(:unicode t :single-line nil)
  (list
    (backslash "a\\u00C0aa")
    (backslash "a\\u00C0") ) )

;;;; testinput5/68: 
;;;
;;;    Matched with 1 captures.
;
(test-case
  "pcre-5/68"
  "^([a\\x{c0}]*?)aa"
  (backslash "a\\u00C0a\\u00C0aaa/")
  '(:unicode t :single-line nil)
  (list
    (backslash "a\\u00C0a\\u00C0aa")
    (backslash "a\\u00C0a\\u00C0") ) )

;;;; testinput5/71: 
;;;
;;;    Matched with 1 captures.
;
(test-case
  "pcre-5/71"
  "^([a\\x{c0}]*)aa"
  (backslash "a\\u00C0aaaa/")
  '(:unicode t :single-line nil)
  (list
    (backslash "a\\u00C0aaaa")
    (backslash "a\\u00C0aa") ) )

;;;; testinput5/72: 
;;;
;;;    Matched with 1 captures.
;
(test-case
  "pcre-5/72"
  "^([a\\x{c0}]*)aa"
  (backslash "a\\u00C0a\\u00C0aaa/")
  '(:unicode t :single-line nil)
  (list
    (backslash "a\\u00C0a\\u00C0aaa")
    (backslash "a\\u00C0a\\u00C0a") ) )

;;;; testinput5/75: 
;;;
;;;    Matched with 1 captures.
;
(test-case
  "pcre-5/75"
  "^([a\\x{c0}]*)a\\x{c0}"
  (backslash "a\\u00C0aaaa/")
  '(:unicode t :single-line nil)
  (list
    (backslash "a\\u00C0")
    "" ) )

;;;; testinput5/76: 
;;;
;;;    Matched with 1 captures.
;
(test-case
  "pcre-5/76"
  "^([a\\x{c0}]*)a\\x{c0}"
  (backslash "a\\u00C0a\\u00C0aaa/")
  '(:unicode t :single-line nil)
  (list
    (backslash "a\\u00C0a\\u00C0")
    (backslash "a\\u00C0") ) )

;;;; testinput5/81: 
;;;
;;;    Not matched
;
(test-case
  "pcre-5/81"
  "(?<=\\C)X"
  "Should produce an error diagnostic"
  '(:unicode t :single-line nil)
  nil
 )

;;;; testinput5/88: 
;;;
;;;    Matched with 2 captures.
;
(test-case
  "pcre-5/88"
  "X(\\C)(.*)"
  (backslash "X\\u1234")
  '(:unicode t :single-line nil)
  (list
    (backslash "X\\u1234")
    ""
    (backslash "\\u1234") ) )

;;;; testinput5/89: 
;;;
;;;    Matched with 2 captures.
;
(test-case
  "pcre-5/89"
  "X(\\C)(.*)"
  (backslash "X\\nabc")
  '(:unicode t :single-line nil)
  (list
    (backslash "X\\nabc")
    "
"
    "abc" ) )

;;;; testinput5/92: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/92"
  "^[ab]"
  "bar"
  '(:unicode t :single-line nil)
  (list "b") )

;;;; testinput5/93: 
;;;
;;;    Not matched
;
(test-case
  "pcre-5/93"
  "^[ab]"
  "*** Failers"
  '(:unicode t :single-line nil)
  nil
 )

;;;; testinput5/94: 
;;;
;;;    Not matched
;
(test-case
  "pcre-5/94"
  "^[ab]"
  "c"
  '(:unicode t :single-line nil)
  nil
 )

;;;; testinput5/95: 
;;;
;;;    Not matched
;
(test-case
  "pcre-5/95"
  "^[ab]"
  (backslash "\\u00FF")
  '(:unicode t :single-line nil)
  nil
 )

;;;; testinput5/96: 
;;;
;;;    Not matched
;
(test-case
  "pcre-5/96"
  "^[ab]"
  (backslash "\\u0100")
  '(:unicode t :single-line nil)
  nil
 )

;;;; testinput5/99: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/99"
  "^[^ab]"
  "c"
  '(:unicode t :single-line nil)
  (list "c") )

;;;; testinput5/100: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/100"
  "^[^ab]"
  (backslash "\\u00FF")
  '(:unicode t :single-line nil)
  (list (backslash "\\u00FF")) )

;;;; testinput5/101: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/101"
  "^[^ab]"
  (backslash "\\u0100")
  '(:unicode t :single-line nil)
  (list (backslash "\\u0100")) )

;;;; testinput5/102: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/102"
  "^[^ab]"
  "*** Failers"
  '(:unicode t :single-line nil)
  (list "*") )

;;;; testinput5/103: 
;;;
;;;    Not matched
;
(test-case
  "pcre-5/103"
  "^[^ab]"
  "aaa"
  '(:unicode t :single-line nil)
  nil
 )

;;;; testinput5/106: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/106"
  "[^ab\\xC0-\\xF0]"
  (backslash "\\u00F1")
  '(:unicode t :single-line nil)
  (list (backslash "\\u00F1")) )

;;;; testinput5/107: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/107"
  "[^ab\\xC0-\\xF0]"
  (backslash "\\u00BF")
  '(:unicode t :single-line nil)
  (list (backslash "\\u00BF")) )

;;;; testinput5/108: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/108"
  "[^ab\\xC0-\\xF0]"
  (backslash "\\u0100")
  '(:unicode t :single-line nil)
  (list (backslash "\\u0100")) )

;;;; testinput5/109: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/109"
  "[^ab\\xC0-\\xF0]"
  (backslash "\\u1000")
  '(:unicode t :single-line nil)
  (list (backslash "\\u1000")) )

;;;; testinput5/110: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/110"
  "[^ab\\xC0-\\xF0]"
  "*** Failers"
  '(:unicode t :single-line nil)
  (list "*") )

;;;; testinput5/111: 
;;;
;;;    Not matched
;
(test-case
  "pcre-5/111"
  "[^ab\\xC0-\\xF0]"
  (backslash "\\u00C0")
  '(:unicode t :single-line nil)
  nil
 )

;;;; testinput5/112: 
;;;
;;;    Not matched
;
(test-case
  "pcre-5/112"
  "[^ab\\xC0-\\xF0]"
  (backslash "\\u00F0")
  '(:unicode t :single-line nil)
  nil
 )

;;;; testinput5/115: 
;;;
;;;    Not matched
;
(test-case
  "pcre-5/115"
  (backslash "\\u00C4\\u0080{3,4}")
  (backslash "\\u0100\\u0100\\u0100\\u0100")
  '(:unicode t :single-line nil)
  nil
 )

;;;; testinput5/126: 
;;;
;;;    
;
(test-case
  "pcre-5/126"
  "\\x{100}*(\\d+|\"(?1)\")"
  "1234"
  '(:unicode t :single-line nil)
   :compile  ; Perl failed to compile.
 )

;;;; testinput5/127: 
;;;
;;;    
;
(test-case
  "pcre-5/127"
  "\\x{100}*(\\d+|\"(?1)\")"
  ""
  '(:unicode t :single-line nil)
   :compile  ; Perl failed to compile.
 )

;;;; testinput5/128: 
;;;
;;;    
;
(test-case
  "pcre-5/128"
  "\\x{100}*(\\d+|\"(?1)\")"
  (backslash "\\u01001234")
  '(:unicode t :single-line nil)
   :compile  ; Perl failed to compile.
 )

;;;; testinput5/129: 
;;;
;;;    
;
(test-case
  "pcre-5/129"
  "\\x{100}*(\\d+|\"(?1)\")"
  ""
  '(:unicode t :single-line nil)
   :compile  ; Perl failed to compile.
 )

;;;; testinput5/130: 
;;;
;;;    
;
(test-case
  "pcre-5/130"
  "\\x{100}*(\\d+|\"(?1)\")"
  (backslash "\\u0100\\u010012ab")
  '(:unicode t :single-line nil)
   :compile  ; Perl failed to compile.
 )

;;;; testinput5/131: 
;;;
;;;    
;
(test-case
  "pcre-5/131"
  "\\x{100}*(\\d+|\"(?1)\")"
  ""
  '(:unicode t :single-line nil)
   :compile  ; Perl failed to compile.
 )

;;;; testinput5/132: 
;;;
;;;    
;
(test-case
  "pcre-5/132"
  "\\x{100}*(\\d+|\"(?1)\")"
  "*** Failers"
  '(:unicode t :single-line nil)
   :compile  ; Perl failed to compile.
 )

;;;; testinput5/133: 
;;;
;;;    
;
(test-case
  "pcre-5/133"
  "\\x{100}*(\\d+|\"(?1)\")"
  (backslash "\\u0100\\u0100abcd")
  '(:unicode t :single-line nil)
   :compile  ; Perl failed to compile.
 )

;;;; testinput5/148: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/148"
  "\\x{100}*A"
  "A"
  '(:unicode t :single-line nil)
  (list "A") )

;;;; testinput5/157: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/157"
  "[\\x{100}]"
  (backslash "\\u0100")
  '(:unicode t :single-line nil)
  (list (backslash "\\u0100")) )

;;;; testinput5/158: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/158"
  "[\\x{100}]"
  (backslash "Z\\u0100")
  '(:unicode t :single-line nil)
  (list (backslash "\\u0100")) )

;;;; testinput5/159: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/159"
  "[\\x{100}]"
  (backslash "\\u0100Z")
  '(:unicode t :single-line nil)
  (list (backslash "\\u0100")) )

;;;; testinput5/160: 
;;;
;;;    Not matched
;
(test-case
  "pcre-5/160"
  "[\\x{100}]"
  "*** Failers"
  '(:unicode t :single-line nil)
  nil
 )

;;;; testinput5/163: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/163"
  "[Z\\x{100}]"
  (backslash "Z\\u0100")
  '(:unicode t :single-line nil)
  (list "Z") )

;;;; testinput5/164: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/164"
  "[Z\\x{100}]"
  (backslash "\\u0100")
  '(:unicode t :single-line nil)
  (list (backslash "\\u0100")) )

;;;; testinput5/165: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/165"
  "[Z\\x{100}]"
  (backslash "\\u0100Z")
  '(:unicode t :single-line nil)
  (list (backslash "\\u0100")) )

;;;; testinput5/166: 
;;;
;;;    Not matched
;
(test-case
  "pcre-5/166"
  "[Z\\x{100}]"
  "*** Failers"
  '(:unicode t :single-line nil)
  nil
 )

;;;; testinput5/171: 
;;;
;;;    Not matched
;
(test-case
  "pcre-5/171"
  (backslash "[\\u00C4\\u0080-\\u00C4\\u0084]")
  (backslash "\\u0100")
  '(:unicode t :single-line nil)
  nil
 )

;;;; testinput5/172: 
;;;
;;;    Not matched
;
(test-case
  "pcre-5/172"
  (backslash "[\\u00C4\\u0080-\\u00C4\\u0084]")
  (backslash "\\u0104")
  '(:unicode t :single-line nil)
  nil
 )

;;;; testinput5/173: 
;;;
;;;    Not matched
;
(test-case
  "pcre-5/173"
  (backslash "[\\u00C4\\u0080-\\u00C4\\u0084]")
  "*** Failers"
  '(:unicode t :single-line nil)
  nil
 )

;;;; testinput5/174: 
;;;
;;;    Not matched
;
(test-case
  "pcre-5/174"
  (backslash "[\\u00C4\\u0080-\\u00C4\\u0084]")
  (backslash "\\u0105")
  '(:unicode t :single-line nil)
  nil
 )

;;;; testinput5/175: 
;;;
;;;    Not matched
;
(test-case
  "pcre-5/175"
  (backslash "[\\u00C4\\u0080-\\u00C4\\u0084]")
  (backslash "\\u00FF")
  '(:unicode t :single-line nil)
  nil
 )

;;;; testinput5/182: 
;;;
;;;    Not matched
;
(test-case
  "pcre-5/182"
  (backslash "[z\\Qa-d]\\u00C4\\u0080\\E]")
  (backslash "\\u0100")
  '(:unicode t :single-line nil)
  nil
 )

;;;; testinput5/183: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/183"
  (backslash "[z\\Qa-d]\\u00C4\\u0080\\E]")
  (backslash "\\u00C4\\u0080")
  '(:unicode t :single-line nil)
  (list (backslash "\\u00C4")) )

;;;; testinput5/186: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/186"
  "[\\xFF]"
  (backslash ">\\u00FF<")
  '(:single-line nil)
  (list (backslash "\\u00FF")) )

;;;; testinput5/189: 
;;;
;;;    Matched
;
(test-case
  "pcre-5/189"
  "[\\xff]"
  (backslash ">\\u00FF<")
  '(:unicode t :single-line nil)
  (list (backslash "\\u00FF")) )

; EOF
